How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act3/00268_quitbox1.ls

Text File | 1995-03-28 | 757 b | 29 lines

on mouseDown
  global game3level, returnframe
  set returnframe to the frame
  set castigate to the number of cast "quitbox2"
  set the castNum of sprite the clickOn to castigate
  startTimer()
  set tstep to 10
  puppetSound("Sound 6")
  repeat while the mouseDown
    set ttime to the timer / tstep
    if ttime < 4 then
      set the castNum of sprite the clickOn to the number of cast ("quitbox" & ttime + 1)
      updateStage()
    end if
  end repeat
  startTimer()
  set ttime to 0
  repeat while ttime < 4
    set ttime to the timer / tstep
    if ttime < 4 then
      set the castNum of sprite the clickOn to the number of cast ("quitbox" & 4 - ttime)
      updateStage()
    end if
  end repeat
  updateStage()
  cleanmeup()
  go(returnframe)
end